-- Haskore Live!
--
-- David Siegel <djsiegel@seas.upenn.edu>
-- Jonathan Coveney <jcoveney@wharton.upenn.edu>
--
-- Tracks.hs
--

-- | Module 'Track' contains a datatype and functions for dealing with named
-- Performances.
module Track ( T (T)
			 , name, performance
             ) where

import Performance (Performance)

-- | 'Name' describes a Track.
type Name = String

-- | A 'Track.T' is a named Performance.
data T = T Name Performance
	deriving (Eq)

-- | Gets a Track.T's Name.
name :: T -> Name
name (T n _) = n

-- | Gets a Track.T's Performance.
performance :: T -> Performance
performance (T _ p) = p

instance Show T where
	show (T n _) = n
